package Station is
   subtype str is String(1..5);
   type Stat is tagged private;
   function getName(The : Stat)return str;
   procedure setName(The : in out Stat; name1 : str);
   private
   type Stat is tagged record
      Name : Str := (others => ' ');
   end record;
end Station;
